home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / Ver2Com.dopus5 < prev    next >
Encoding:
Text File  |  1998-08-15  |  963 b   |  33 lines
  1. /*
  2. $VER: Ver2Com.dopus5 1.0 (3.8.98) D.Clarke
  3. Copies file version information to comment field of file.
  4. */
  5. parse arg portname function source dest arguments
  6. address value portname
  7. options results
  8.  
  9. if function = 'init' then do
  10.   dopus command "Ver2Com" program "Ver2Com" desc "'Copies file version to comment'" 'source'
  11.   exit
  12.   end
  13. lister query source path
  14. path = strip(result,B,'"')
  15. call pragma('d',path)
  16. lister query source selfiles stem files
  17. if files.count = 0 | files.count = '' | files.count = 'RESULT' then do
  18.   lister request '"No files selected" OK'
  19.   exit (5)
  20.   end
  21. do i = 0 to files.count - 1
  22.   lister query source entry '"'files.i'"' stem fileinfo.
  23.   info = fileinfo.version||'.'fileinfo.revision' ('fileinfo.verdate')'
  24.   if info ~= '. ' then do
  25.     command wait original comment '"'path||files.i'"' '"'info'"'
  26.     fileinfo.comment = info
  27.     lister addstem source fileinfo.
  28.     end
  29.   lister select source files.i off
  30.   lister refresh source
  31. end
  32. exit
  33.